Private Sub UserForm_Initialize()
'    
With ListBox1
'  
.ColumnCount = 3
'    50
.ColumnWidths = "50;50;50"
'   
.ColumnHeads = True
'  
.RowSource = "=Sheet1!A2:B10"
'      
.MultiSelect = fmMultiSelectMulti
End With

TextBox1 = ""

End Sub
 